# file mpcom.r
common /mpcomm/ junkc(MPCDIM),junk1(MPDIM),junk2(MPDIM),junk3(MPDIM), junk4(MPDIM)
character junkc
integer junk1,junk2,junk3,junk4
